home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypertxt / msdos / magic15b / fixtabs.bas < prev    next >
Encoding:
BASIC Source File  |  1989-11-02  |  367 b   |  12 lines
  1. 110 PRINT "RemoveTab"
  2. 120 INPUT "enter name of input file - ";F1$
  3. 130 INPUT "enter name of output file - ";F2$
  4. 140 OPEN F1$ FOR INPUT AS #1 LEN=512
  5. 150 OPEN F2$ FOR OUTPUT AS #2 LEN=512
  6. 160 IF EOF(1) THEN END
  7. 170 N=(ASC(INPUT$(1,#1)) AND 127)
  8. 180 IF N=9 THEN N = 32          ' Replace Tabs with Spaces
  9. 190 PRINT #2,CHR$(N);
  10. 200 PRINT CHR$(N);
  11. 210 GOTO 160
  12.